home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir26 / epi601_2.zip / FILES07.EXE / CASECON.PGM < prev    next >
Text File  |  1994-08-22  |  2KB  |  65 lines
  1. *Program to set up cases and controls for PSP study
  2. READ EPIDEMIC
  3. DEFINE GROUP STRING WIDTH = 7
  4. *Set up a defined variable, to be "Case", "Control", or "Other"
  5. DEFINE NEURO number global width =4  0
  6. DEFINE MOTOR #### global 0
  7. *Variables for number of neuro and motor symptoms
  8.  
  9. *define sets both to zero before each record
  10. IF LIPS = "Y" THEN NEURO = NEURO + 1
  11. IF FACE = "Y" THEN NEURO = NEURO + 1
  12. IF EARS = "Y" THEN NEURO = NEURO + 1
  13. IF FINGERS = "Y" THEN NEURO = NEURO + 1
  14. IF TOES = "Y" THEN NEURO = NEURO + 1
  15. IF LEGS = "Y" THEN NEURO = NEURO + 1
  16. IF ARMS = "Y" THEN NEURO = NEURO + 1
  17.  
  18. IF  TALKING = "Y" THEN MOTOR = MOTOR + 1
  19. IF  WALKING = "Y" THEN MOTOR = MOTOR + 1
  20. IF  GETTINGUP= "Y" THEN MOTOR = MOTOR + 1
  21. IF  BREATHING= "Y" THEN MOTOR = MOTOR + 1
  22. IF  DIZZINESS= "Y" THEN MOTOR = MOTOR + 1
  23. *NEURO and MOTOR now contain the symptom counts
  24.  
  25. LET GROUP = "       "
  26. *Set GROUP to blank.  This is important!!
  27. IF (ILL = "Y") AND (DATEONSET = "07/30") AND (HEADACHE = "Y") AND\
  28.    (NEURO >= 2) AND (MOTOR >= 2) THEN GROUP = "CASE"
  29. *Use all the case criteria to label the cases
  30. IF (GROUP <> "CASE") and (ILL = "N") THEN GROUP = "CONTROL"
  31. *Label as controls only those not ill
  32.  
  33. SET IGNORE = ON
  34. *Ignore missing values in making tables, so that they will be 2 x 2
  35. SELECT GROUP = "CASE" OR GROUP = "CONTROL"
  36. *Include only cases and controls
  37.  
  38. DEFINE ANYFISH STRING width = 1
  39. DEFINE ANYSHRIMP <A>
  40. DEFINE ANYCLAMS STRING width = 1
  41. DEFINE ANYLOBSTER <A>
  42. *variables can be defined in either of the above two ways
  43.  
  44. IF FISH = "Y" OR FISHSOUP = "Y" THEN ANYFISH = "+" ELSE ANYFISH = "-"
  45. IF SHRIMP = "Y" OR SHRIMPSOUP = "Y" THEN ANYSHRIMP = "+" ELSE ANYSHRIMP = "-"
  46. IF CLAMS = "Y" OR CLAMSOUP = "Y" THEN ANYCLAMS = "+" ELSE ANYCLAMS = "-"
  47. IF LOBSTER = "Y" OR LOBSTRSOUP = "Y" THEN ANYLOBSTER = "+" \
  48.    ELSE ANYLOBSTER = "-"
  49. *Set up variables for combinations of foods
  50.  
  51. DEFINE AGEGROUP STRING width = 9
  52. RECODE AGE to AGEGROUP BY 10
  53. *Set up age groups
  54.  
  55. HEADER 1 CHAMPERICO CASES AND CONTROLS WITH ONSET JULY 30
  56. ECHO Cases and Controls identified. GROUP is the identifier.
  57. ECHO The variables are:
  58. VARIABLES
  59. *Show a list of variables
  60. ECHO ANALYSIS is ready for more commands....
  61. ECHO To continue the interactive tutorial, type RUN CASECON2
  62. ECHO To skip the tutorial and experiment with the variables listed
  63. ECHO above, press <Enter>
  64. ?Epi> ?
  65.